Option Explicit
Sub B_Sample031()
    Dim myWb As Workbook
    Columns(1).Clear				'xs檺M
    Range("A1:B1").Value = Array("ïW", "|")	'D]w
    For Each myWb In Workbooks
        With Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .Value = myWb.Name
            On Error Resume Next
            	.Offset(, 1).Value = myWb.Path
            On Error GoTo 0
        End With
    Next
    Set myWb = Nothing						'
End Sub
